<script>on mouseUpglobal browsesend mouseLeave to meselect the clickLineput the clickLine into theClickLineput quote & "Segment Date" & quote into word 6 of theClickLineput "item 2 of " before theClickLinepush cardlock screengo card id value(theclickLine)put false into browseunlock screenend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>42</top>
<right>21</right>
<bottom>62</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>25285</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search</name>
<script>on mouseUpsend mouseLeave to mepush cardlock screengo card "Find"end mouseUpon mouseDownset the cursor to "Click Hand"end mouseDown</script>
</part>
<part>
<id>69</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>1</top>
<right>193</right>
<bottom>20</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>14</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>18</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>21</top>
<right>23</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12992</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>44</left>
<top>44</top>
<right>65</right>
<bottom>69</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>133</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Key words</name>
<script>on mouseDownlock screenset the cursor to "Click Hand"if the icon of me is 133 then --if key is posshowCurrentKeyWordsset the icon of me to 5768else --if key is neghideCurrentKeyWordsset the icon of me to 133end ifend mouseDownon mouseEnterglobal helpif help is "on" then show field (short name of me && "Help")end mouseEnteron mouseLeaveglobal helpif help is "on" then hide field (short name of me && "Help")end mouseLeave</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>84</top>
<right>21</right>
<bottom>104</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26640</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUpglobal helppush cardlock screengo card "General Help"end mouseUpon mouseDownset the cursor to "Click Hand"end mouseDown</script>
</part>
<part>
<id>40</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>195</left>
<top>41</top>
<right>310</right>
<bottom>219</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>forceLeft</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Segment Date</name>
<script>on mouseDownselect the clickLinewait 20if the selection ≠ "" and the selection ≠ CR thenlock screenput item 1 of the selection into segmentNameput item 2 of the selection into tapeNamesfind whole segmentName in bg fld Nameif the result = "not found" thengo bg "segment index"answer quote & segmentName & Quote && "was not found" with "OK"elseunlock screen with visual zoom open fastend ifend ifend mouseDown</script>
</part>
<part>
<id>42</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>69</left>
<top>54</top>
<right>307</right>
<bottom>122</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>forceLeft</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>miconList</name>
<script>on mouseDownselect the clickLinewait 20if the selection ≠ "" and the selection ≠ CR thenlock screenput item 1 of the selection into segmentNameput item 2 of the selection into tapeNamesfind whole segmentName in bg fld Nameif the result = "not found" thengo bg "segment index"answer quote & segmentName & Quote && "was not found" with "OK"elseunlock screen with visual zoom open fastend ifend ifend mouseDown</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>288</left>
<top>0</top>
<right>320</right>
<bottom>29</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31953</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseDownset the icon of me to "Big Scissors closed2"end mouseDownon mouseUpset the icon of me to "Big Scissors open2"end mouseUpon mouseLeaveset the icon of me to "Big Scissors open2"end mouseLeave</script>
</part>
<part>
<id>53</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>21</top>
<right>12</right>
<bottom>41</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23271</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>prev</name>
<script></script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>105</top>
<right>21</right>
<bottom>125</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>129</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>toggle</name>
<script>on mouseDownset the cursor to "Click Hand"end mouseDownon mouseEnterglobal helpif help is "on" then show field (short name of me && "Help")end mouseEnteron mouseLeavehide field (short name of me && "Help")end mouseLeaveon mouseUplock screentoggleControlsunlock screen with dissolve fastend mouseUp</script>
</part>
<part>
<id>58</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>126</top>
<right>21</right>
<bottom>146</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>135</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>print</name>
<script>on mouseDownset the cursor to "Click Hand"end mouseDownon mouseUpsend mouseLeave to mepush cardlock screengo card "Print"end mouseUp</script>
</part>
<part>
<id>59</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>147</top>
<right>21</right>
<bottom>167</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>136</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>control</name>
<script>on mouseUppush cardsend mouseLeave to melock screengo card "Control"end mouseUpon mouseDownset the cursor to "Click Hand"end mouseDown</script>
</part>
<part>
<id>66</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>105</top>
<right>21</right>
<bottom>125</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12305</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>resize</name>
<script>on mouseUpresizeWindowend mouseUpon mouseDownset the cursor to "Click Hand"end mouseDown</script>
</part>
<part>
<id>68</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>32</left>
<top>102</top>
<right>56</right>
<bottom>128</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>9025</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>block</name>
<script></script>
</part>
<part>
<id>71</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>63</top>
<right>21</right>
<bottom>83</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29662</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>express return</name>
<script></script>
</part>
<part>
<id>72</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>51</left>
<top>41</top>
<right>301</right>
<bottom>227</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>forceLeft</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Browse List</name>
<script>on mouseUpglobal browsesend mouseLeave to meselect the clickLineput the clickLine into theClickLineput quote & "browse Date" & quote into word 6 of theClickLinepush cardlock screengo card id value(theclickLine)put true into browseunlock screenend mouseUp</script>
</part>
<part>
<id>74</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>195</left>
<top>41</top>
<right>310</right>
<bottom>219</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>forceLeft</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>browse date</name>
<script>on mouseDownselect the clickLinewait 20if the selection ≠ "" and the selection ≠ CR thenlock screenput item 1 of the selection into segmentNameput item 2 of the selection into tapeNamesfind whole segmentName in bg fld Nameif the result = "not found" thengo bg "segment index"answer quote & segmentName & Quote && "was not found" with "OK"elseunlock screen with visual zoom open fastend ifend ifend mouseDown</script>
</part>
<part>
<id>75</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>214</left>
<top>219</top>
<right>276</right>
<bottom>233</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>field name</name>
<script></script>
</part>
<part>
<id>76</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>168</top>
<right>21</right>
<bottom>187</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>133</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>delete</name>
<script>on mouseUpanswer "Clear Visual Catalog?" with "Cancel" or "OK"if it is not "OK" then exit mouseUpelseif fld "segment index" is empty thenanswer "Visual Catalog already clear!" with "OK"exit mouseUpend iflock screengo second cd of bg "segment info"repeatif short name of this bg is "segment info" then domenu "delete card"end repeatend ifunlock screenend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>75</id>
<text>Master List</text>
</content>
<name>Segment Index</name>
<script>on MiconListID-- All cards/backgrounds where you can place a micon must have-- a MiconList. If Chaplin tries to place a micon and the card-- does not have a MiconList field. One will be created.-- The MiconList contains the name, pathName, position, btn ID-- for all micons that should appear when a card is opened.-- This function returns the id of itself and the name of the stack-- it is in as item 1 and 2 respectively. It should sit in the-- background script handler for the background containing the-- MiconList field.put the id of bkgnd fld "MiconList" into item 1 of returnValueput the short name of this stack into item 2 of returnValuereturn returnValueend MiconListIDon openCardsizeScreensetScreenif fld "browse list" is not empty thenshow button "toggle"end ifunlock screenpass openCardend openCardon closeCardglobal gVideoShopActiveif gVideoShopActive is not empty then if gVideoShopActive thenremoveAllMicons short name of this stackend ifpass closeCardend closeCard</script>
